home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
6
/
c_wndw.zip
/
SCROLL1.C
< prev
next >
Wrap
Text File
|
1989-05-25
|
740b
|
28 lines
/* (c) Marietta Systems, Inc. 1987
* All rights reserved
*
* Demonstration program for function scroll
*/
#include "mtest.h"
void main(){
int a;
char text[20];
clr_scrn("Scroll test");
if (1 > mk_wndw(5, 20, 19, 60, NULL));
for (a = 1 ; a < 14 ; a++){
sprintf(text, "This is line %d", a);
display(text, a, a, high);
}
/* */
disp_msg("To scroll (-1, 2), press a key",1); read_kb();
scroll(-1, 2);
disp_msg("To scroll (0, 2), press a key",1); read_kb();
scroll(0, 2);
disp_msg("To scroll (2, 0), press a key",1); read_kb();
scroll(2, 0);
disp_msg("To scroll (-1, 0), press a key",1); read_kb();
scroll(-1, 0);
disp_msg("To finish program, press a key",1); read_kb();
goodbye(0);
}